home *** CD-ROM | disk | FTP | other *** search
/ Cherry Poppers / Cherry Poppers.iso / pc / install.inf < prev    next >
Encoding:
Text File  |  1990-03-27  |  3.8 KB  |  119 lines
  1. ;;**************************************************
  2. ;; Install of the software for dos/win
  3. ;;**************************************************
  4.  
  5. DefineVariables
  6.   Text    [LogoBitMap]  := zane.bmp
  7.   Text    [CompanyName] := Zane Entertainment
  8.   Text    [ProductName] := Cherry Poppers 1
  9.   Text    [ProductName5] := Install QuickTime
  10.   Text    [ProductName3] := Uninstall QuickTime
  11.   Text    [ProductName6] := Read Me    
  12.   Text    [ReadFile]    := readme.wri             
  13.   Text      [ReadCmdLine]
  14.   Text    [IconFile]    := zane.ico
  15.   Text    [IconFile3]    := unqt.ico
  16.   Text    [IconFile5]    := suqt.ico   
  17.   Text    [IconPath]
  18.   Text    [IconPath2]
  19.   Text    [IconPath3]
  20.   Text    [IconPath5]
  21.   Text    [ReadPath]
  22.   Text    [ProgFile]    := cherry.exe
  23.   Text    [ProgPath]
  24.   Text    [CDDr]
  25.  
  26. EndDefineVariables
  27.  
  28.  
  29. ;; Setup logo and screen
  30. SetDefaultBitmap off
  31. LoadBitMap 1 [LogoBitMap]
  32. ShowBitMap 1 @xy(5,5)
  33. SetBackgroundColor 0 0 64 191 64 0
  34. ShowWindow Maximized
  35.  
  36. Dialog
  37.   Wait one moment please for the [ProductName] installation...
  38.  
  39.   We offer you the choice to (un)install QuickTime 2.0 separately. 
  40.   An icon for (un)installing QuickTime will be created in the 
  41.   [CompanyName] program group.  
  42. EndDialog
  43.  
  44. ;;************************************************
  45. ;;  this is where we setup the directory for the 
  46. ;; installation of the software.  We install into the 
  47. ;; bootdrive:\Qtime directory.  This is hard coded
  48. ;; and must be named this for the Windows application 
  49. ;; to read properly.
  50. ;;************************************************
  51. ;;[InstallationDirectory] := [BootDrive]:\QTW
  52. ;;CreateDirectoryIfNecessary [InstallationDirectory]
  53. ;;QueAllFiles
  54. ;;GetQuedFiles
  55.  
  56. ;;**************************************************
  57. ;;Find the files for the program and icons
  58. ;;**************************************************
  59. [IconPath] := FullPathTo [IconFile] Search AllFixed
  60. [IconPath3] := FullPathTo [IconFile3] Search AllFixed
  61. [IconPath5] := FullPathTo [IconFile5] Search AllFixed
  62. [ProgPath]  := FullPathTo [ProgFile] Search AllFixed
  63. [CDDr]    := SubstringOf [IconPath] from 1 to 1
  64. [ReadPath]  := FullPathTo [ReadFile] Search AllFixed
  65. [ReadCmdLine]    := write.exe [ReadPath]
  66.  
  67. ;;**************************************************
  68. ;; Create the windows program group.
  69. ;;**************************************************
  70. ProgramManagerDDe
  71.   CreateGroup([CompanyName])
  72.   ReplaceItem([CompanyName])
  73.   AddItem([ProgPath],[ProductName],[IconPath])
  74.   AddItem([CDDr]:\BIN\INSTLQT.EXE,[ProductName5],[IconPath5])
  75.   AddItem([CDDr]:\BIN\BIN\UNSTLQT.EXE,[ProductName3],[IconPath3])
  76.   AddItem([ReadCmdLine],[ProductName6],[IconPath2])
  77. EndProgramManagerDDE
  78.  
  79.  
  80. ;;**************************************************
  81. ;; Here is where we modify the Autoexec file for the
  82. ;; file paths
  83. ;;**************************************************
  84. ModifyAutoExecBat
  85.   AddPathComponent [BootDrive]:\QTW at beginning  
  86. EndModifyAutoExecBat 
  87.  
  88.  
  89. ;; Exit dialog box and messages
  90. Dialog
  91.   [ProductName] installation is complete.
  92.  
  93.   Additional information is being provided to you in the "[ProductName6]" file.
  94.  
  95.   Enjoy!
  96. EndDialog
  97.  
  98. Procedure DDENonFatalErrorTrap
  99. ;; Purpose of DDENonFatalErrorTrap:
  100. ;; If a procedure with this name is present in the script and a non-fatal
  101. ;; Program Manager DDE error occurs, then this procedure will be executed.
  102. ;; 
  103. ;; Possible Text Error Codes Are:
  104. ;;      ddeExec%s failed      (NOTE:  the "%s" is replaced by error types)
  105. ;;      ddeInitiate failed
  106. ;;      pmAddItem failed
  107. ;;      pmClose failed
  108. ;;      pmCreateGroup failed
  109. ;;
  110. ;; To trap a DDENonFatalError and respond to it, use the following code
  111. ;; [Number1] := PositionOf "PMAddItem" in DDENonFatalError
  112. ;; If [Number1] > 0 
  113. ;;    Dialog
  114. ;;      NonFatal error in AddItem occurred
  115. ;;      Error Text : DDENonFatalError
  116. ;;    EndDialog
  117. EndProcedure
  118.  
  119. EndScript